home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / DEPRECIATION AMOUNT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  739b  |  25 lines
  1. 10  PRINT "DEPRECIATION AMOUNT"
  2. 20  PRINT 
  3. 30  PRINT "ORIGINAL PRICE";
  4. 40  INPUT P
  5. 50  PRINT "DEPRECIATION RATE";
  6. 60  INPUT I
  7. 69  REM - CONVERT FROM PERCENT TO DECIMAL
  8. 70 I = I/100
  9. 80  PRINT "--(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)--"
  10. 90  PRINT "YEAR";
  11. 100  INPUT Y
  12. 109  REM  - THROUGH CALCULATING FOR THIS ITEM?
  13. 110  IF Y = 0  THEN 160
  14. 119  REM  - CALCULATE DEPRECIATION AMOUNT BY FORMULA
  15. 120 D = P *I *(1 -I) ^(Y -1)
  16. 129  REM  - ROUND OFF TO NEAREST CENT, PRINT
  17. 130  PRINT "DEPRECIATION = $"; INT(D *100 +.5)/100
  18. 140  PRINT 
  19. 149  REM  - RETURN FOR NEXT YEAR NUMBER
  20. 150  GOTO 90
  21. 159  REM  - RESTART OR END PROGRAM?
  22. 160  PRINT "MORE DATA (1=YES, 0=NO)";
  23. 170  INPUT X
  24. 180  IF X = 1  THEN 20
  25. 190  PRINT "<CTRL-D>RUNHELLO"